program Project1; // Zadanie 3.13

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
 i, suma : Integer;

begin
 Writeln('Program sumuje liczby nieparzyste w przedziale od 1 do 100.');
 suma := 0;

 for i := 1 to 100 do
  if not (i mod 2 = 0) then
   suma := suma+i;

 Writeln('Suma liczb nieparzystych w przedziale od 1 do 100 wynosi ', suma, '.');

 Readln; // czeka na nacisniecie klawisza Enter
end.

